home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b2.d64 / reg'd supply.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  205 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147]DESIGNING A BASIC POWER SUPPLY"
  2. 20 PRINT
  3. 30 PRINT"WHICH DO WANT TO DESIGN"
  4. 40 PRINT
  5. 50 PRINT"1. A BASIC TRANSFORMER AND BRIDGE SUPPLY
  6. 70 [153]"2. A REG. SUPPLY ONLY
  7. 80 PRINT
  8. 90 PRINT"3. OR BOTH REG. AND BRIDGE SUPPLY
  9. 100 [133] A
  10. 110 [139] A[178]1 [167][137] 290
  11. 120 [139] A[178]2 [167][137] 140
  12. 130 [139] 1[179]A[177]3 [167][137]30
  13. 140 [143]
  14. 150 [153]"LOAD"
  15. 160 [153]"WHICH REG. WOULD YOU LIKE TO DESIGN"
  16. 170 [153]
  17. 180 [153]"A. DO YOU WANT FEEDBACK REG. WITH           PROTECTION
  18. 190 PRINT
  19. 200 PRINT"B. DO YOU WANT FEEDBACK REG. ONLY
  20. 210 [153]
  21. 220 [153]"C. OVERLOAD PROTECTION W(null)ZENER              TRANSISTOR
  22. 230 PRINT
  23. 240 PRINT"D. DO YOU WANT ZENER REG W[206]EXTEND           TRANSISTOR
  24. 250 [153]
  25. 260 [153]"E. DO YOU WANT JUST A ZENER REG.
  26. 270 INPUT B$
  27. 280 PRINT"[147]"
  28. 290 INPUT "WHAT DO YOU WANT THE OUTPUT VOLTAGE.";VO
  29. 300 PRINT
  30. 310 INPUT "WHAT DO YOU WANT THE OUTPUT I AMPS.";IO
  31. 320 PRINT
  32. 330 INPUT"WHAT DO YOU WANT THE RIPPLE VOLTAGE.";RO
  33. 340 PRINT"[147]"
  34. 350 IF A =1 THEN GOTO 1750
  35. 360 IF A=2 THEN GOTO 380
  36. 370 IF A=3 THEN GOTO 1750
  37. 380 IF B$="A" THEN GOTO 430
  38. 390 IF B$="B" THEN GOTO 490
  39. 400 IF B$="C" THEN GOTO 1060
  40. 410 IF B$="D" THEN GOTO 1300
  41. 420 IF B$="E" THEN GOTO 1560
  42. 430 PRINT"[147]"
  43. 440 PRINT "THIS IS AN FEEDBACK REG. W[206]INPUT PROTECTION"
  44. 450 PRINT
  45. 460 R4=INT((2/(1.2*IO*.05))*100)/100:PZ=INT((.1*VO*IO)*100)/100
  46. 470 PI=INT((VO*IO*1.5)*100)/100:VZ=INT((VO+2)*100)/100:P4=INT((.2*PI)*100)/100
  47. 480 GOTO 530
  48. 490 PRINT"[147]"
  49. 500 PRINT"THIS IS AN FEEDBACK REG."
  50. 510 PRINT
  51. 520 P3=INT((VO/(IO*.05))*100)/100
  52. 530 REM
  53. 540 R3=INT((VO/(IO*.05))*100)/100:R1=INT((.01*R3)*100)/100:R2=INT(10*R3)/100
  54. 550 C2=1000:Q1=INT(VO*IO*100)/100:Q2=INT(20*Q1)/100:Q3=INT(10*Q1)/100
  55. 560 VZ=VO:V1=VO:V2=V1:V3=V1:PO=INT(VO*IO*100)/100:VI=INT((VO-3)*100)/100
  56. 570 P1=INT(VO*IO*100)/100:P2=INT(20*P1)/100:P3=INT(10*P1)/100:VI=VO*1.2:PZ=P3
  57. 580 PRINT "Q1 AND Q2 ARE PNP AND Q3 IS AN NPN"
  58. 590 IF B$="A"THEN GOTO 830
  59. 600 PRINT
  60. 610 PRINT "[163][163][163][163][207][163][163][163][207][163][163][163][207][163][163][163][205]Q1[206][163][163][163][163][207] [219]";"R1=";R1
  61. 620 PRINT " [219]  [165]   [165]   [165]    [189][206]     [165]  ";"R2=";R2
  62. 630 PRINT "    [165]  [206]   [206]    [163][163][207][163]    [165]  ";"R3=";R3
  63. 640 PRINT "    [165]  [205]   [205]      [165]     [165]  ";"PR1=";P1
  64. 650 PRINT "    [165]R2[206] R1[206]      [165]     [165]  ";"PR2=";P2
  65. 660 PRINT "    [165]  [205]   [205]      [165]     [165]  ";"PR3=";P3
  66. 670 PRINT "    [165]  [206]   [206]      [165]     [165]  ";"VZ=";VZ
  67. 680 PRINT "    [165]  [205]   [205]      [165]     [165]  ";"PZ=";PZ
  68. 690 PRINT "    [165]   [165]   [204][164][164][164][164][186]      [165]  ";"VQ1=";V1
  69. 700 PRINT "    [165]   [165]     Q2  [205]  [206][163][163][165]  ";"VQ2=";V2
  70. 710 PRINT "    [165][160][160][160][165]          [189][206]   [165]  ";"VQ3=";V3
  71. 720 PRINT "   [206]    [165]         [163][208][163][163]  [165]  ";"PQ1=";Q1
  72. 730 PRINT "   [205]    [204][164][164][164][164][164][164][164][164][164][164][186]    [165]  ";"PQ2=";Q2
  73. 740 PRINT " R3[206]               [167]    [165]  ";"PQ3=";Q3
  74. 750 PRINT "   [205][206]        Q3  [167] [206]    [165]  ";"VO=";VO
  75. 760 PRINT "   [206][205][163][163][163][163][207][163][163][163][163][204][164][164][186][206]     [165]  ";"IO=";IO
  76. 770 PRINT "   [205]    [186][204]       [167][205]     [165]  ";"VI=";VI
  77. 780 PRINT "   [167]    [213][201] C2    [167] [189]    [165]  ";"PI=";PI
  78. 790 PRINT "   [163][163]   [186][204]          [163][163][163][163]    "
  79. 800 PRINT "   [205][205][205]  [205][205][205]  "
  80. 810 GOTO 2000
  81. 820 GOTO 2000
  82. 830 REM
  83. 840 PRINT "[163][163][163][163][207][163][163][163][207][163][163][163][207][163][163][163][205]Q1[206][163][163][163][163][207] [219]";"R1=";R1
  84. 850 PRINT " [219]  [165]   [165]   [165]    [189][206]     [165]  ";"R2=";R2
  85. 860 PRINT "    [165]  [206]   [206]    [163][163][207][163]    [165]  ";"R3=";R3
  86. 870 PRINT " R4[206]   [205]   [205]      [165]     [165]  ";"R4=";R4
  87. 880 PRINT "   [205] R2[206] R1[206]      [165]     [165]  ";"PR1=";P1
  88. 890 PRINT "   [206]   [205]   [205]      [165]     [165]  ";"PR2=";P2
  89. 900 PRINT "   [205]   [206]   [206]      [165]     [165] ";" PR3=";P3
  90. 910 PRINT "   [206]   [205]   [205]     [167][165]     [165]  ";"PR4=";P4
  91. 920 PRINT "   [205]    [165]   [204][164][164][164][164][186][165]     [165]  ";"PZ=";PZ
  92. 930 PRINT "[167][207][163][163][165]   [165]     Q2  [205]  [206][163][163][165]  ";"VQ1=";V1
  93. 940 PRINT "[167][165]Z [165][160][160][160][165]          [189][206]   [165]  ";"VQ2=";V2
  94. 950 PRINT "[176][189] [206]    [165]         [163][208][207][163]  [165]  ";"VQ3=";V3
  95. 960 PRINT "[206][205] [205]    [204][164][164][164][164][164][164][164][164][164][164][186][165]   [165]  ";"PQ1=";Q1
  96. 970 PRINT "[208][207] [206] R3            [167]    [165]  ";"PQ1=";Q1
  97. 980 PRINT "[167][165] [205][206]        Q3    [206]    [165]  ";"PQ3=";Q3
  98. 990 PRINT "[167][165] [206][205][163][163][163][208][207][163][163][163][204][164][164][164][186][206]     [165]  ";"VO=";VO
  99. 1000 PRINT "[167][165] [205]    [186][204]       [167][205]     [165]  ";"IO=";IO
  100. 1010 PRINT " [163][163][208]    [213][201]         [189]    [165]  ";"PI=";PI
  101. 1020 PRINT "   [163][163]   [186][204]          [163][163][163][163]   ";"VI=";VI
  102. 1030 PRINT "   [205][205][205]  [205][205][205]                ";"VZ=";VZ
  103. 1040 GOTO 2000
  104. 1050 PRINT "IIN=";II;" PI=";PI
  105. 1060 PRINT"[147]"
  106. 1070 PRINT "OVERLOAD PROTECTION W[206]ZENER EXTEND TRANSISTOR"
  107. 1080 PRINT
  108. 1090 VI=INT((VO+1)*100)/100:IR=IO:R2=INT(1000*(VO/IO))/100:R3=INT(110/IO)/100
  109. 1100 RW=INT(IO*IO*R3*100)/100:VD=VI:ID=IO:P2=INT(VO*IO*100)/100
  110. 1110 PO=INT(VI*IO*100)/100:Q2=V1:II=INT(IO*120)/100:PI=INT(VI*II*100)/100
  111. 1120 Q2=VI
  112. 1130 PRINT
  113. 1140 PRINT "   [163][163][163][163][163][208][207][163][163][163][163][205][206][205][206][205][206][205][206][163][208][207][163] [219]"; "R3=";R3
  114. 1150 PRINT "        [167][165]       R3    [167][165]   "; "VD=";VD
  115. 1160 PRINT "       [164][186][204][164]            [186][204]   "; "ID=";ID
  116. 1170 PRINT "        [206][205] Q2     CR2  [206][205]   "; "RW=";RW
  117. 1180 PRINT "   [164][164][164][164][206]  [189]            [208][207]   "; "IO=";IO
  118. 1190 PRINT "           [163][163][163][163][163][163][163][163][163][163][163][207][163]     ";"PO=";PO
  119. 1200 PRINT "                     [206]       ";"R2=";R2
  120. 1210 PRINT "                     [205]      ";"VQ2=";Q2
  121. 1220 PRINT "                 R2  [206]      ";"PQ2=";P2
  122. 1230 PRINT "                     [205]      ";"IIN=";II
  123. 1240 PRINT "                     [186][204]      ";"VI=";VI
  124. 1250 PRINT "                     [205][205][205]     ";"PI=";PI
  125. 1260 PRINT
  126. 1270 INPUT "ARE YOU READY TO GO ON";X$
  127. 1280 IF X$="Y"THEN GOTO 1290
  128. 1290 IF B$="C"THEN GOTO 1340
  129. 1300 PRINT
  130. 1310 PRINT"[147]"
  131. 1320 U=2
  132. 1330 PRINT "THIS IS A ZENER REG. SUPPLY W[206]EXTEND TRANSISTOR"
  133. 1340 PRINT
  134. 1350 IF B$="C"THEN LET VO=VI:IO=II:PO=PI
  135. 1360 VI=INT((2+VO)*100)/100:I1=INT(5*IO)/100:PO=INT(VO*IO*100)/100:PZ=.1*PO
  136. 1370 R1=INT(((.9*VO-.5)/(VO*.05))*100)/100:VZ=INT((VO-.5)*100)/100
  137. 1380 Q1=VI:II=INT(IO*120)/100:P1=INT(IO*120*VI)/100 :PI=INT(VI*II*100)/100
  138. 1390 IF U<>2THENGOTO1310
  139. 1400 PRINT "  [163][163][163][163][208][207][163][163][205][160][160][174][163][163][163][163][163][163][163]  [219]  ";"VQ1=";Q1
  140. 1410 PRINT "      [206]    [205][206]  Q1         ";"PQ1=";P1
  141. 1420 PRINT "      [205]   [163][208][207][163]            ";"R1=";R1
  142. 1430 PRINT "      [206]    [167][165]             ";"PZ=";PZ
  143. 1440 PRINT "  R1  [205]    [167][165]             ";"VZ=";VZ
  144. 1450 PRINT "      [206]    [167][165]             ";"VO=";VO
  145. 1460 PRINT "      [205]    [167][165]             ";"IO=";IO
  146. 1470 PRINT "       [204][164][164][164][186][165]             ";"VI=";VI
  147. 1480 PRINT "           [167][165]             ";"II=";II
  148. 1490 PRINT "           [176][189]             ";"PI=";PI
  149. 1500 PRINT "      Z    [206][205]             ";"PO=";PO
  150. 1510 PRINT "           [208][207]             ";"IR1=";I1
  151. 1520 PRINT "           [167][165]                 "
  152. 1530 PRINT "           [186][204]                 "
  153. 1540 PRINT "           [205][205][205]                 "
  154. 1550 GOTO 2000
  155. 1560 PRINT"[147]"
  156. 1570 PRINT "THIS IS A ZENER REG."
  157. 1580 PRINT
  158. 1590 PR=INT(VO*IO*100)/100
  159. 1600 VZ=VO:PZ=VZ*IO:VI=INT(150*VZ)/100:RS=INT(((VI-VZ)*(VI-VZ)/PR)*100)/100
  160. 1610 PO=INT(VI*IO*150)/100:II=INT(IO*120)/100
  161. 1620 PI=INT(VI*II*100)/100
  162. 1630 PRINT
  163. 1640 PRINT" [163][163][163][163][205][206][205][206][205][206][205][206][205][206][163][207][163][163][163][163]  [219]  ";"RS=";RS
  164. 1650 PRINT"        RS      [165]          ";"VZ=";VZ
  165. 1660 PRINT"               [176][189]          ";"PZ=";PZ
  166. 1670 PRINT"            Z  [206][205]          ";"VO=";VO
  167. 1680 PRINT"               [208][207]          ";"VI=";VI
  168. 1690 PRINT"               [186][204]          ";"PO=";PO
  169. 1700 PRINT"               [205][205][205]         ";"PI=";PI
  170. 1710 PRINT "PR=";PR;"IIN=";II;"IO=";IO
  171. 1720 GOTO 2000
  172. 1730 PRINT
  173. 1740 PRINT "THIS IS A BASIC TRANSFORMER SUPPLY"
  174. 1750 PRINT
  175. 1760 VS=INT(100*VO/1.3)/100:TP=INT(150*VO*IO)/100:RL=INT(100*VO/IO)/100
  176. 1770 VC=INT(150*VO)/100:RS=INT(((VC-VO)/IO)*100)/100
  177. 1780 C1=INT(20000000/(RL*RS))/100
  178. 1790 PO=VO*IO:VD=2*VO:ID=IO*2:T1=VS:PI=T1*ID
  179. 1800 PRINT
  180. 1810 PRINT "[192][192][192][192][192][192][192][201][221][221][213][192][192][192][192][192][192]         ";"VS=";VS
  181. 1820 PRINT "       [203][221][221][202]     [206][205]        ";"TP=";TP
  182. 1830 PRINT "       [201][221][221][213]    [214]  [205]       ";"RL=";RL
  183. 1840 PRINT "       [203][221][221][202][160][160][160][223]";"    ";"[169]";"[146]";"    VC=";VC
  184. 1850 PRINT "       [201][221][221][213]  [206]      [214]     ";"RS=";RS
  185. 1860 PRINT "       [203][221][221][202] [167][205]      [206][163][208][207] [219]";"C1=";C1
  186. 1870 PRINT "  TPR1 [201][221][221][213][160][167] ";"";"[169]";"[146]";"    [214]  [186][204]  ";"PO=";PO
  187. 1880 PRINT "       [203][221][221][202][160][167]  [214]  [223]   [213][201] ";"VD=";VD
  188. 1890 PRINT "       [201][221][221][213] [167]   [205][206]    [167][165] ";"ID=";ID
  189. 1900 PRINT "[192][192][192][192][192][192][192][203][221][221][202][192][192][192][192][192][192]     [167][165] ";"T1=";T1
  190. 1910 PRINT "            [167][164][164][164][164][164][164][164][164][164][186][204][164]";"PI=";PI
  191. 1920 PRINT "VO=";VO;"  IO=";IO
  192. 1930 IF A=3 THEN GOTO 1970
  193. 1940 IF C<3 OR C>3 THEN GOTO 2000
  194. 1950 TC=TI+1000
  195. 1960 IFTC>TI THENGOTO1960
  196. 1970 INPUT "ARE YOU READY TO CONTINUE ";X$
  197. 1980 IF X$="Y"THEN GOTO 380
  198. 1990 IF X$="N"THEN GOTO1970
  199. 2000 TC=TI+1000
  200. 2010 IFTC>TI THENGOTO2010
  201. 2020 INPUT "DO YOU WANT ANOTHER DESIGN";X$
  202. 2030 IF X$="Y"THENRUN
  203. 2040 IF X$="N"THEN GOTO2050
  204. 2050 REM
  205.